home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh46b.d64 / adress x2000 (.txt) next >
Commodore BASIC  |  1995-03-30  |  2KB  |  89 lines
  1. 5 PRINTCHR$(14):PRINTCHR$(8)
  2. 10 INPUT"[147][197]PSON (J/N)";D$
  3. 20 P$="[184][184]"
  4. 30 DIM A$(100),B$(100),A(100),B(100)
  5. 40 PRINTCHR$(147):POKE646,5
  6. 50 POKE53281,0:POKE53280,0
  7. 60 PRINT:PRINTSPC(17);"[153][205]ENUE"
  8. 70 PRINTSPC(17);"*****"
  9. 80 PRINT:PRINTSPC(12);"[150]1.[211]PEICHERN"
  10. 90 PRINT:PRINT:PRINTSPC(12);"2.[204]ADEN"
  11. 100 PRINT:PRINT:PRINTSPC(12);"[152]3.[204]OESCHEN"
  12. 110 PRINT:PRINT:PRINTSPC(12);"[155]4.[211]PEICHERINHALT ZEIGEN"
  13. 120 PRINT:PRINT:PRINTSPC(12);"[154]5.[211]PEICHERINHALT DRUCKEN"
  14. 130 PRINT:PRINT:PRINTSPC(12);"[156]6.[208]OSTKARTENKLEBER"
  15. 140 PRINT:PRINT:PRINTSPC(12);"7.[197]XIT TO [194]ASIC"
  16. 150 GETU$:IFU$=""THEN150
  17. 160 A=VAL(U$)
  18. 170 IFA=1THEN250
  19. 180 IFA=2THEN400
  20. 190 IFA=3THEN820
  21. 200 IFA=4THEN660
  22. 210 IFA=5THEN670
  23. 220 IFA=6THEN680
  24. 230 IFA=7THEN640
  25. 240 GOTO40
  26. 250 INPUT"[147][150][214]ORNAME";A$(0)
  27. 260 INPUT"[206]AME";A$(1)
  28. 270 INPUT"[211]TRASSE";A$(2)
  29. 280 INPUT"[207]RT";A$(3)
  30. 290 INPUT"[151][208]LZ";A(0)
  31. 300 INPUT"[129][212]EL.";A$(4)
  32. 310 OPEN1,8,2,+A$(1)+" "+LEFT$(A$(0),1)+".,S,W"
  33. 320 PRINT#1,A$(0)
  34. 330 PRINT#1,A$(1)
  35. 340 PRINT#1,A$(2)
  36. 350 PRINT#1,A$(3)
  37. 360 PRINT#1,A$(4)
  38. 370 PRINT#1,A(0)
  39. 380 CLOSE1
  40. 390 GOTO40
  41. 400 INPUT"[147][149][194]ITTE DEN [214]ORNAMEN ANGEBEN";B$(1)
  42. 410 INPUT"[129][202]ETZT DEN [206]ACHNAMEN";B$(0)
  43. 420 IFL=10THENRETURN
  44. 430 OPEN1,8,2,+B$(0)+" "+LEFT$(B$(1),1)+".,S,R"
  45. 440 INPUT#1,A$(0)
  46. 450 INPUT#1,A$(1)
  47. 460 INPUT#1,A$(2)
  48. 470 INPUT#1,A$(3)
  49. 480 INPUT#1,A$(4)
  50. 490 INPUT#1,A(0)
  51. 500 CLOSE1
  52. 510 PRINT"[147]"
  53. 520 IFY=2THENPRINT"[147][211]PEICHERINHALT WIRD GEDRUCKT":OPEN4,4:CMD4
  54. 530 POKE646,9:PRINT"[214]ORNAME: ";A$(0)
  55. 540 PRINT"[206]AME   : ";A$(1)
  56. 550 POKE646,3:PRINT"[211]TRASSE: ";A$(2)
  57. 560 POKE646,4:PRINT"[207]RT    : ";A$(3)
  58. 570 POKE646,10:PRINT"[208]LZ    :";A(0)
  59. 580 PRINT"[212]EL.   : ";A$(4)
  60. 590 IFY=2THENY=0:RETURN
  61. 600 PRINT"->> [212]ASTE FUER [205]ENUE <<-[146]"
  62. 610 GETT$:IFT$=""THEN610
  63. 620 IFY=1THENY=0:RETURN
  64. 630 GOTO 40
  65. 640 PRINT"[147]";SPC(10);"[158][193]UF [215]IEDERSEHEN"
  66. 650 END
  67. 660 Y=1:GOSUB510:GOTO40
  68. 670 Y=2:GOSUB510:PRINT#4:CLOSE4:GOTO40
  69. 680 INPUT"[147][158][193]NREDE";R$
  70. 690 F$=STR$(A(0))
  71. 700 FORI=1TOLEN(F$+A$(3)):P$=P$+"[184]":NEXTI
  72. 710 OPEN4,4:CMD4
  73. 720 PRINT R$
  74. 730 PRINT
  75. 740 PRINT A$(0);" ";A$(1)
  76. 750 PRINT
  77. 760 PRINT A$(2)
  78. 770 PRINT
  79. 780 IFD$="J"THENGOSUB850:GOTO810
  80. 790 PRINT A(0);A$(3)
  81. 800 PRINTP$
  82. 810 PRINT#4:CLOSE4:P$="[184][184]":GOTO40
  83. 820 L=10:GOSUB400:L=0
  84. 830 OPEN1,8,15,"S:"+B$(0)+" "+LEFT$(B$(1),1)+"."
  85. 840 CLOSE1:GOTO40
  86. 850 PRINT#4,CHR$(27)"A"CHR$(5);CHR$(27)"-"CHR$(1);
  87. 860 PRINT#4," "A(0);A$(3)" "
  88. 870 PRINT#4,CHR$(27)"-"CHR$(0):RETURN
  89.